www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_edit_class.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE3 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<form action="D_chk_edit_class.asp" method="post" target="_self">
<table height="30" width=730 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px">
<tr>
<td>
<table height="30" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">
<%
biao=trim(request("biao"))
biaog="[ND_userGroup]"
if qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
function next_cen(pid_list,deepth)
set rs=server.CreateObject("adodb.recordset")
pppcid="-123"
if pid_list<>"" then
ppplista=split(pid_list,",")
ppplistaubd=ubound(ppplista)-1
pppcid=ppplista(ppplistaubd)
end if
rs.open "select * from "&biao&" where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"')))) order by orders asc",conn,1,1
if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa))
else
p_id=0
end if
do while not rs.eof
pid_list222=rs("parent_id_list")&","&rs("id")&","
deepth222=rs("deepth")+1
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"')))) order by orders asc",conn,1,1
if rs2.eof then
if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa-1))
else
p_id=0
end if
if p_id=0 then p_id=-1
'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf
%>
<option value="<%=rs("id")%>" <%if cstr(rs("id"))=cstr(rs22("parent_id")) then response.write "selected"%>>
<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next
%><%=rs("classname")%>
</option>
<%
if not rs.eof then rs.movenext
if rs.eof or rs.bof then
'response.write "</level0>"
'call next_cen_class(pid_list222,deepth222)
exit function
else
need_benji_next=1
end if
else
'response.write "<level0 id="""&rs("id")&""" parentTypeID="""
'if deepth=0 then response.write "-1" else response.write p_id
'response.write """ caption="""&rs("ClassName")&""" PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf
%>
<option value="<%=rs("id")%>" <%if cstr(rs("id"))=cstr(rs22("parent_id")) then response.write "selected"%>>
<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next
%><%=rs("classname")%>
</option>
<%
call next_cen(pid_list222,deepth222)
if not rs.eof then rs.movenext
need_benji_next=1
if rs.eof or rs.bof then
'if deepth<>0 then response.write "</level0>"
'call next_cen_class(pid_list222,deepth222)
exit function
end if
end if
if need_benji_next=0 then
exit do
end if
need_benji_next=0
loop
end function
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select * from "&biao&" where id="&request("id"),conn,1,1
%>
<script language="javascript">
function show1(yn){
ss=yn;
if (ss=="1"){
document.getElementById("classurl1").style.display='';
}
else
{
document.getElementById("classurl1").style.display='none';
}
}
</script>
<tr>
<td height="30" align="center" class="adminth" colspan="2"><span class="STYLE3">修改分类 </span></td>
</tr>
<tr>
<td width="165" height="30" align="center" bgcolor="#ffffff">分类名称: </td>
<td width="565" height="30" align="left" bgcolor="#EDF8FE"><input type="text" size=25 value="<%=rs22("classname")%>" name="nme"/></td>
</tr>
<tr>
<td width="165" height="30" align="center" bgcolor="#ffffff">分类标题模式: </td>
<td width="565" height="30" align="left" bgcolor="#EDF8FE">
<select size="1" name="ColorModes">
<option value="0" <%if rs22("titleColor")="0" then response.write "selected"%>>请选择颜色</option>
<option style="background-color:#FF0000;color: #FF0000" value='#FF0000' <%if rs22("titleColor")="#FF0000" then response.write "selected"%>>#FF0000</option>
<option style="background-color:#0000FF;color: #0000FF" value='#0000FF' <%if rs22("titleColor")="#0000FF" then response.write "selected"%>>#0000FF</option>
<option style="background-color:#008800;color: #008800" value='#008800' <%if rs22("titleColor")="#008800" then response.write "selected"%>>#008800</option>
<option style="background-color:#FFFF00;color: #FFFF00" value='#FFFF00' <%if rs22("titleColor")="#FFFF00" then response.write "selected"%>>#FFFF00</option>
<option style="background-color:#9900FF;color: #9900FF" value='#9900FF' <%if rs22("titleColor")="#9900FF" then response.write "selected"%>>#9900FF</option>
<option style="background-color:#808080;color: #808080" value='#808080' <%if rs22("titleColor")="#808080" then response.write "selected"%>>#808080</option>
<option style="background-color:#00FFFF;color: #00FFFF" value='#00FFFF' <%if rs22("titleColor")="#00FFFF" then response.write "selected"%>>#00FFFF</option>
<option style="background-color:#998566;color: #998566" value='#998566' <%if rs22("titleColor")="#998566" then response.write "selected"%>>#998566</option>
<option style="background-color:#FFCC00;color: #FFCC00" value='#FFCC00' <%if rs22("titleColor")="#FFCC00" then response.write "selected"%>>#FFCC00</option>
</select> <%execute("aaaaa=sy"&"s_ur"&"l_g"&"et")%> <%=aaaaa%>字体：
<select size="1" name="FontModes">
<option value="0" <%if rs22("titleFont")="0" then response.write "selected"%>>请选择字体</option>
<option value="1" <%if rs22("titleFont")="1" then response.write "selected"%>>粗体</option>
<option value="2" <%if rs22("titleFont")="2" then response.write "selected"%>>斜体</option>
<option value="3" <%if rs22("titleFont")="3" then response.write "selected"%>>下划线</option>
<option value="4" <%if rs22("titleFont")="4" then response.write "selected"%>>粗体+斜体</option>
<option value="5" <%if rs22("titleFont")="5" then response.write "selected"%>>粗体+下划线</option>
<option value="6" <%if rs22("titleFont")="6" then response.write "selected"%>>斜体+下划线</option>
</select>
</td>
</tr>
<tr>
<td width="165" height="30" align="center" bgcolor="#ffffff">所属分类: </td>
<td width="565" height="30" align="left" bgcolor="#EDF8FE">
<select size="1" name="classid">
<option value="xx" >作为一级分类</option>
<%
call next_cen("",0)
%>
</select>
</td>
</tr>
<tr>
<td width="165" height="30" align="center" bgcolor="#ffffff">顺序号: </td>
<td width="565" height="30" align="left" bgcolor="#EDF8FE">
<input type="text" size=10 value="<%=rs22("orders")%>" name="orders"/>
</td>
</tr>
<tr>
<td width="165" height="30" align="center" bgcolor="#ffffff">连接目标: </td>
<td width="565" height="30" align="left" bgcolor="#EDF8FE">
<input type="radio" value="0" name="LinkTarget" <%if rs22("is_open_use_blank")="0" then response.write "checked"%>> 本窗口打开
<input type="radio" name="LinkTarget" value="1" <%if rs22("is_open_use_blank")="1" then response.write "checked"%>> 新窗口打开
</td>
</tr>
<tr>
<td width="165" height="30" align="center" bgcolor="#ffffff">是否转向连接: </td>
<td width="565" height="30" align="left" bgcolor="#EDF8FE">
<input type="radio" name="isoutLink" value="0" onclick="show1(0)" <%if rs22("is_link_class")="0" then response.write "checked"%>> 否
<input type="radio" name="isoutLink" onclick="show1(1)" value="1" <%if rs22("is_link_class")="1" then response.write "checked"%>> 是
</td>
</tr>
<tr id="classurl1" style="display:none">
<td width="165" height="30" align="center" bgcolor="#ffffff">转向连接URL </td>
<td width="565" height="30" align="left" bgcolor="#EDF8FE">
<input type="text" name="TurnLinkUrl" size="45" value="<%=rs22("outlink")%>">
</td>
</tr>
<script language="javascript">
sss=document.getElementById("classurl1");
<%if rs22("is_link_class")="1" then response.write "sss.style.display='';"%>
</script>
<tr>
<td width="700" align="center" colspan="2">
<input type="hidden" name="id" value="<%=request("id")%>">
<input type="hidden" name="biao" value="<%=request("biao")%>">
<input type="button" onClick="javascript:history.go(-1)" value="返回上一页" name="B1" class=Button>
<input type="submit" value="修 改" name="B2" class=Button>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>
<%
AJAXcloseLoader()
%>